home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Hyper / H / HyperExtras.sit / HyperExtras / HyperExtras.rsrc / TEXT_3001_helMenuText.txt < prev    next >
Encoding:
Text File  |  1994-03-23  |  1.3 KB  |  41 lines
  1.  put "Helper" into v
  2.   if which is "windows" then
  3.     global winMenu
  4.     if winMenu is empty then put buildWinMenu() into winMenu
  5.     put btn2rect of window "Helper" into x
  6.     put item 1 of x&","&item 2 of x into x
  7.     put getPopMen(winMenu,x,Helper,1) into y
  8.     if y is in "Numbers Monitor Length selector size infoid" then
  9.       helpEx y
  10.     else
  11.       put y&"--No other info, hopefully obvious"
  12.     end if
  13.   end if
  14.   if which is "reports" then
  15.     put btn3rect of window "Helper" into x
  16.     put item 1 of x&","&item 2 of x into x
  17.     put getPopMen("Report,Report tips,Loop Find...,Messages,Move Things,Create Things...",x,helper,1) into y
  18.     if y is empty then exit to hypercard
  19.     put procPath() into path
  20.     if  y is "report" then
  21.       put ResText(TEXT,aboutInfo,path) into x
  22.       textoid Reports, x
  23.     end if
  24.     if  y is "report tips" then
  25.       put ResText(TEXT,repTips,path) into x
  26.       textoid "Report Tips", x
  27.     end if
  28.     if  y is "Loop Find..." then
  29.       put ResText(TEXT,loops,path) into x
  30.       textoid "loops", x
  31.     else
  32.       helpEx y
  33.     end if
  34.   end if
  35.   if which is "scripts" then
  36.     put btn7rect of window "Helper" into x
  37.     put item 1 of x&","&item 2 of x into x
  38.     put getPopMen("Scripts,HandleCounter",x,helper,1) into y
  39.     if y is empty then exit to hypercard
  40.     helpEx y
  41.   end if